home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / HERSHEY.FSL < prev    next >
Encoding:
Text File  |  1993-06-07  |  11.5 KB  |  197 lines
  1. #!fast-load 4.0 (hershey/hershey.sw)
  2. h0098 0D03
  3. x0FTEX-ENVIRONMENT
  4. lx08OUT-CHARn
  5. x08OUT-CHAR
  6. lx07DRAW_ITlx0DFONT_SIBLINGSlx06FONT_0lx06SIZE_0lx0BDIRECTION_0lx05O_SYMlx06O_SVARlx05O_S10lx05O_S20lx05O_GRKlx05O_LIGlx0FFONT-COMPOSITE?lx06FONT-Xlx06FONT-Ylx09FONT-MAKElx05FONT-lx05FONT+lx05FONT*lx09FONT-BIG?lx05smalllx05largelx05horizlx04vertlx0Braw_handlerlx09TEX-CODESlx07TEX-OUTn
  7. x02#T
  8. x07DRAW_IT
  9. llx04GR2Bx04GR10llx04GR2Lx04GR10llx04RM2Bx04RM10llx04RM2Lx04RM10llx04SL2Bx04SL10llx04SL2Lx04SL10llx04SS2Bx04SS10llx04SS2Lx04SS10llx04SY20x04SY10n
  10. x0DFONT_SIBLINGS
  11. x04RM10
  12. x06FONT_0
  13. x06SIZE_0
  14. x05HORIZ
  15. x0BDIRECTION_0
  16. x05O_SYM
  17. x06O_SVAR
  18. x05O_S10
  19. x05O_S20
  20. x05O_GRK
  21. x05O_LIG
  22. x05PAIR?
  23. x0FFONT-COMPOSITE?
  24. x03CAR
  25. x06FONT-X
  26. x04CADR
  27. x06FONT-Y
  28. x04CONS
  29. x09FONT-MAKE
  30. x05FONT-
  31. x05FONT+
  32. x05FONT*
  33. x09FONT-BIG?
  34. x05small
  35. x05large
  36. x05horiz
  37. x04vert
  38. x0Braw_handler
  39. llx06langlelx03SYMli0001nllx06ranglelx03SYMli0002nllx01(lx03SYMli0003nllx01)lx03SYMli0004nllx01[lx03SYMli0005nllx01]lx03SYMli0006nllx01{lx03SYMli0007nllx01}lx03SYMli0008nllx02rwlx03SYMli0009nllx02wrlx03SYMli000Anllx08parallellx03SYMli000Bnllx02pmlx03SYMli000Cnllx02mplx03SYMli000Dnllx05timeslx04SVARllx05QUOTElli000Elx04SS2Llx04GR2Llx04EN2Llx04SS10nnli000Fnllx04cdotlx04SVARllx05QUOTElli0010lx04SS2Llx04GR2Llx04EN2Llx04SS10nnli0011nllx03divlx03SYMli0012nllx03neqlx03SYMli0013nllx05equivlx03SYMli0014nllx03leqlx03SYMli0015nllx03geqlx03SYMli0016nllx06proptolx03SYMli0017nllx06subsetlx03SYMli0018nllx03cuplx03SYMli0019nllx06supsetlx03SYMli001Anllx03caplx03SYMli001Bnllx02inlx03SYMli001Cnllx05nablalx04SVARllx05QUOTElli001Dlx04SS2Llx04GR2Llx04EN2Lnnli001Enllx07varsurdlx03SYMli001Fnllx04surdlx03SYMli0020nllx06varintlx03SYMli0021nllx03intlx03SYMli0022nllx04ointlx03SYMli0023nllx03sumlx03SYMli0024nllx04prodlx03SYMli0025nllx05inftylx03SYMli0026nllx06existslx03SYMli0027nllx06otimeslx03S20li0028nllx04perplx03S20li002Anllx05anglelx03S20li002Bnllx06thatislx03S20li002Cnllx08angstromlx03S20li002Enllx04hbarlx03S20li002Fnllx01'lx03SYMli0040nllx01`lx03SYMli0041nllx01ulx03SYMli0042nllx02''lx03SYMli0043nllx02``lx03SYMli0044nllx02`"lx03SYMli0045nllx02'"lx03SYMli0046nllx0Arightarrowlx04SVARllx05QUOTElli0047lx04SS2Llx04GR2Llx04RM2Llx04SS10nnli0048nllx07uparrowlx03SYMli0049nllx09leftarrowlx03SYMli004Anllx09downarrowlx03SYMli004Bnllx01Slx03SYMli004Cnllx06daggerlx03SYMli004Dnllx07ddaggerlx03SYMli004Enllx03boxlx03SYMli004Fnllx04odotlx03SYMli0050nllx03sunlx03SYMli0050nllx07mercurylx03SYMli0051nllx05venuslx03SYMli0052nllx05opluslx03SYMli0053nllx05earthlx03SYMli0053nllx04marslx03SYMli0054nllx07jupiterlx03SYMli0055nllx06saturnlx03SYMli0056nllx06uranuslx03SYMli0057nllx07neptunelx03SYMli0058nllx05plutolx03SYMli0059nllx04moonlx03SYMli005Anllx05cometlx03SYMli005Bnllx08asteroidlx03SYMli005Cnllx03verlx03SYMli005Dnllx08autumnislx03SYMli005Enllx06bulletlx03S10li005Fnllx09spadesuitlx03S20li005Fnllx09heartsuitlx03S20li0060nllx04dashlx03S10li0061nllx0Bdiamondsuitlx03S20li0061nllx05sqcaplx03S10li0062nllx08clubsuitlx03S20li0062nllx05wedgelx03S10li0063nllx07varclublx03S20li0063nllx0Aunderscorelx03SYMli0030nllx02wplx03S20li0032nllx05scoutlx03S20li0064nllx0Fbigtriangledownlx03S10li0065nllx06circlelx03S10li00A0nllx06squarelx03S10li00A1nllx08trianglelx03S10li00A2nllx07diamondlx03S10li00A3nllx04starlx03S10li00A4nllx05smashlx03S10li00A7nllx06CIRCLElx03S10li00A8nllx06SQUARElx03S10li00A9nllx09UTRIANGLElx03S10li00AAnllx09LTRIANGLElx03S10li00ABnllx09DTRIANGLElx03S10li00ACnllx09RTRIANGLElx03S10li00ADnllx04STARlx03S10li00AEnllx04FLAGlx03S10li00AFnllx06anchorlx03S10li00B0nllx05planelx03S10li00B1nllx04worklx03S10li00B2nllx03oillx03S10li00B3nllx04boatlx03S10li00B4nllx04skewlx03S10li00B5nllx06christlx03S10li00B6nllx06muslimlx03S10li00B7nllx03jewlx03S10li00B8nllx04belllx03S10li00B9nllx08palmtreelx03S10li00BAnllx07firtreelx03S10li00BBnllx07oaktreelx03S10li00BCnllx04treelx03S10li00BDnllx03sunlx03S10li00BEnllx06countylx03S20li0093nllx08districtlx03S20li0094nllx05arieslx03S20li0095nllx06tauruslx03S20li0096nllx06geminilx03S20li0097nllx06cancerlx03S20li0098nllx03leolx03S20li0099nllx05virgolx03S20li009Anllx05libralx03S20li009Bnllx07scorpiolx03S20li009Cnllx0Bsagittariuslx03S20li009Dnllx09capricornlx03S20li009Enllx08aquariuslx03S20li009Fnllx06pisceslx03S20li00A0nllx05steerlx03S20li00A1nllx04centlx03S20li00A2nllx05verb*lx03S20li00A3nllx04mdotlx03S20li00C0nllx02m`lx03S20li00C1nllx02m'lx03S20li00C2nllx04fulllx03S20li00C3nllx04halflx03S20li00C4nllx07quarterlx03S20li00C5nllx05sharplx03S20li00C6nllx07naturallx03S20li00C7nllx04flatlx03S20li00C8nllx04restlx03S20li00C9nllx05hrestlx03S20li00CAnllx05qrestlx03S20li00CBnllx05erestlx03S20li00CCnllx05Gcleflx03S20li00CDnllx05Fcleflx03S20li00CEnllx09tenorcleflx03S20li00CFnllx05alephlx03S20li0031nllx05Alphalx03GRKli0041nllx04Betalx03GRKli0042nllx05Gammalx03GRKli0043nllx05Deltalx03GRKli0044nllx07Epsilonlx03GRKli0045nllx04Zetalx03GRKli0046nllx03Etalx03GRKli0047nllx05Thetalx03GRKli0048nllx04Iotalx03GRKli0049nllx05Kappalx03GRKli004Anllx06Lambdalx03GRKli004Bnllx02Mulx03GRKli004Cnllx02Nulx03GRKli004Dnllx02Xilx03GRKli004Enllx07Omicronlx03GRKli004Fnllx02Pilx03GRKli0050nllx03Rholx03GRKli0051nllx05Sigmalx03GRKli0052nllx03Taulx03GRKli0053nllx07Upsilonlx03GRKli0054nllx03Philx03GRKli0055nllx03Khilx03GRKli0056nllx03Psilx03GRKli0057nllx05Omegalx03GRKli0058nllx05alphalx03GRKli0061nllx04betalx03GRKli0062nllx05gammalx03GRKli0063nllx05deltalx03GRKli0064nllx07epsilonlx03GRKli0065nllx04zetalx03GRKli0066nllx03etalx03GRKli0067nllx05thetalx03GRKli0068nllx04iotalx03GRKli0069nllx05kappalx03GRKli006Anllx06lambdalx03GRKli006Bnllx02mulx03GRKli006Cnllx02nulx03GRKli006Dnllx02xilx03GRKli006Enllx07omicronlx03GRKli006Fnllx02pilx03GRKli0070nllx03rholx03GRKli0071nllx05sigmalx03GRKli0072nllx03taulx03GRKli0073nllx07upsilonlx03GRKli0074nllx03philx03GRKli0075nllx03khilx03GRKli0076nllx03psilx03GRKli0077nllx05omegalx03GRKli0078nllx08vardeltalx03GRKli0001nllx0Avarepsilonlx03GRKli0002nllx08varthetalx03GRKli0003nllx06varphilx03GRKli0004nllx08varsigmalx03GRKli0005nllx02fflx03LIGli0001nllx02filx03LIGli0002nllx02fllx03LIGli0003nllx03ffilx03LIGli0004nllx03ffllx03LIGli0005nllx01ilx03LIGli0006nn
  40. x09TEX-CODES
  41. x07TEX-OUT
  42. lx04FONTlx09DIRECTIONlx04SIZElx04MODEn
  43. x04FONT
  44. x09DIRECTION
  45. x04SIZE
  46. x04MODE
  47. x03RAW
  48. s0000
  49. x0CSTRING-NULL?
  50. x04VERT
  51. x05RIGHT
  52. x04LEFT
  53. x10SET-TEXT-JUSTIFY
  54. x06BOTTOM
  55. x08OUT-TEXT
  56. x09TEXT-SIZE
  57. x08MOVE-REL
  58. x06SINGLE
  59. x06FONT-L
  60. x0FBGI-ENVIRONMENT
  61. x11INSTALL-USER-FONT
  62. x0ESET-TEXT-STYLE
  63. x12SET-USER-CHAR-SIZE
  64. lx03STRn
  65. x03STR
  66. lx0ATEX-LOOKUPlx09TEX-BEGINlx07TEX-ENDn
  67. x03XXX
  68. x06ACCESS
  69. x07COMPILE
  70. lx04CODEn
  71. x04CODE
  72. x0ATEX-LOOKUP
  73. x09TEX-BEGIN
  74. x07TEX-END
  75. x07INTOKEN
  76. s0007    \^_{} 
  77. s0005\^_{}
  78. x04CHAR
  79. lx04TAILn
  80. x04TAIL
  81. c5E
  82. f3334333333333FE3
  83. c5F
  84. f000000000000BFE0
  85. c7B
  86. c7D
  87. c5C
  88. lc5Clc5Elc5Fn
  89. x09TEX-TOKEN
  90. lx07INTOKENn
  91. lx04NEXTn
  92. x04NEXT
  93. lx0BFIRST-TOKENn
  94. x0BFIRST-TOKEN
  95. lx09FIRST-LENn
  96. x09FIRST-LEN
  97. s0001@
  98. lx06DOUBLEn
  99. x06DOUBLE
  100. lx0AFIRST-ATOMn
  101. x0AFIRST-ATOM
  102. lx0CFIRST-SYMBOLn
  103. x0CFIRST-SYMBOL
  104. s0001 
  105. c28
  106. s0001,
  107. c20
  108. x11OPEN-INPUT-STRING
  109. x04READ
  110. x0ESTRING->NUMBER
  111. lx08ARGUMENTn
  112. x08ARGUMENT
  113. x03SYM
  114. x04SVAR
  115. x03S10
  116. x03S20
  117. x03LIG
  118. x03GRK
  119. lx07HANDLERn
  120. x07HANDLER
  121. x0C#!UNASSIGNED
  122. lx04NAMEn
  123. x04NAME
  124. x08TEX-FONT
  125. x0BCHAR-UPCASE
  126. x0CSTRING->LIST
  127. x03MAP
  128. x0CLIST->STRING
  129. x08%EXECUTE
  130. s0001_
  131. x0Aunderscore
  132. lx01Nn
  133. x01N
  134. lx01Nn
  135. lx04SY10lx04SS10lx04RM10lx04GR10lx04SL10n
  136. x04GR10
  137. lx04SS2Llx04RM2Llx04GR2Llx04SL2Ln
  138. x04GR2L
  139. x04GR2B
  140. lx01Nn
  141. x04SY20
  142. lx01Nn
  143. x04SY10
  144. lx03FIFlx05FELSEn
  145. x03FIF
  146. x05FELSE
  147. lx04SY10lx04SS10lx04RM10lx04GR10lx04SL10n
  148. lx01Nn
  149. lx04SY10lx04SS10lx04RM10lx04GR10lx04SL10n
  150. s0001I
  151. x06AMOUNT
  152. lc20lc09lc0Alc0Clc0Dn
  153. lx06AMOUNTn
  154. x09TEX-RAISE
  155. t< ▌▌    
  156.   
  157. <▓
  158. 
  159. <P
  160. <"
  161. <⌠    <ò    <a    <π<Å<;<∩<╝ <ë !<i!"<I"#<·#$%&<√&┘==;▌'( )*+,+i"    -O  +0╩  @Å#╒ @.4ê#│() *0° ) /f "0 1 234 "@44 @54@ O 64) /f "@54@ù O 647 +i "A;A( )*&5; A( )*@4 Å " " 7$+i $" ;( )*&5@;89█Znê" ═:4   4"<; 44O4O <5  ;5▌=>▌? O @O  AO B4▌CDE<å=E F< Ñ     F G< ù     G >╞ >Hi"I J╬ Ki"     $ f#'>º ▌LM> ╟ $N e $"  O0     $MO$;$P e $"  Q0÷ $MO$;$R e $"   F$MO $;$S e $"   G$MO $;$T e $# ä M.4 ê "  M$╟ $$Ui $"  V<  $M(M╞(,º$,(O $;MW0t■ ▌XY$Y@$$▌Z$[([╞(▌\(],[04]8^╬,048▌_,`0`"00[48`º048 0[▌a0b4b╦4▌c4d8`"88`Q8<[@]ⁿ<ºⁿ8@8ⁿ 8e@<8╟<@@ff<@"<T $(,048@]D`R@DQ@ DHg<8╬<D@HDh@8╚@<D8i4j4<840,($  ( $(,0488k4<840,($ ▌l<m@dD%n@DD@#D¿DV<D≈■CH@PnLHeLP"LL
  162.  SPoLHeLP"LL BPpLHeLP"LL 1PqLHeLP"LL  PrLHeLP"LL PsLHeLP"LLL $(,048<@D DE@4 D@<840,($  5 $(,048<@DbD╦E4D@<840,($  $(,048<@D▌tDuHV<Hq HLYAL0!     HOH; ;>º>º O;.4"; ╟ 0Γ " ╞ º  ┴;V<í■ uvf " b0"       umO  5 ▌wxy<; zx{4 |4 }4╦ $$$$$  &5DN @ⁿ iⁿⁿD ~ 5f"(Ç (5 & 7,4;(&  /(5(&  (5  4& 5  & 54"&  44b  \; \ ;4"1  4Q4 Q  5 Q;4"1  4Q4 Q  5 Q;4"=  4Q■ b  4 Q ■b  5 Q■  b;▌üé<■;éC 5▌âé<■; éCäh"à åh"ç ê  5▌ëé<■;é è5▌ïé<■;é î5▌ìÄÅ  <■;C ÄAi "  Ä@   ÅCÉi"î è  5▌æé
  163. <■; éCÆi"î è  5 @ C I N  á  o}4 0&4█040Z4; q j A j@ q9V<▀ ■ #MºO  5   0▒÷5ô4AöS/f"ùO  ùO /f "     O  O644 "    $n $$ "$A$  $ $($ f$("$ $   4$   $$ &7K464    ; q j A j@ q9 q j A j@ q9 òi ;o;&5▌ûöù<«■;
  164. z
  165. h000A 00BD
  166. x0BOUT-HERSHEY
  167. x07MOVE-TO
  168. x0FERROR-PROCEDURE
  169. s0011Invalid arguments
  170. x06FONT_0
  171. x0FTEX-ENVIRONMENT
  172. x0BDIRECTION_0
  173. x06SIZE_0
  174. x07TEX-OUT
  175. s000FString expected
  176. t<■; Ñ  eê"> e" @4   4  Å " ;█Z█ Z █Z █ Z5     4;
  177. z
  178. h000A 00A1
  179. x0CSIZE-HERSHEY
  180. x0FTEX-ENVIRONMENT
  181. x07DRAW_IT
  182. x06GET-XY
  183. x06FONT_0
  184. x0BDIRECTION_0
  185. x06SIZE_0
  186. x07TEX-OUT
  187. x02#T
  188. x07MOVE-TO
  189. t<; ▄ 4█Z█Z█Z █ Z 44@@RAARO▄    4;
  190. z
  191. h0006 0035
  192. x04TEST
  193. x0CSPLIT-SCREEN
  194. x0CCLEAR-DEVICE
  195. x07MOVE-TO
  196. li0064i0064
  197. x0BOUT-HERSHEY
  198. t<;
  199. 444  5
  200. z
  201.